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MODULE nodes HAS 00 


(IDE -000' 
ADDRESSING_MODE (EXTERNAL =GENERAL) ) 
ESE SESISI ISIS TTT TTT TIT I TIT TTI TTT ITI Titi ititititify 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


eseeseccs 


ta 

: 4 1 

Py 5 1 
3 $ 1 * 
; 1 * 
3 8 1 * 
3 3 1 * 
; 0010 1 !« * 
; 11 O11 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; ig ig 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 1 1 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 1$ Bets : 7 TRANSFERRED. * 
3 ‘« * 
; 18 Bog 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 19 001 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ¥ 
3 $9 8 : * CORPORATION. * 
4 i® ® 
; $§ 00 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Py Si 4 Z : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ‘e ® 
; «8 0025 1 !* * 
3 $$ 00 6 1 lee ReR RRA RAAAAAAAAAAAAAAAAAAAAE RARE AAA AAA EAAAAAAAAAAEARARERARReEEe Ee 
; 7 0027 1 

3; 2 0028 1 !++ 

3 $0 eS , : : Facility: Command Definition Utility, Node Routines 

3 1 0031 1 ! Abstract: This module provides routines to create and manipulate nodes, 
; 3 it 1! which are the data structure used to build the intermediate 

; 0035 1! representation of a CLD file. These nodes are Linked together 
. = 0034 1! as a directed graph, and when the parsing of the CLD is 

; $2 oo? ' } complete, represent the entire meaning of the CLD. 

; * itt ! Environment: Standard CDU environment. 

3 6 0039 1 ! Author: Paul C. Anagnostopoulos 

aa 0040 1 ! Creation: 30 November 1982 

; 41 0041 1! : 

; rs ak 1 ! Modifications: 

3 «6 00435 1 !-- 

; 6464 044 1 

3060 4S 045 1 

; 0046 1 Library ‘sys$library:lib'; 

:- oF 0047 1 require ‘cdureq’; 
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VOu=000 tiose Sox1882 FFi88:38 | bTRcbumguaStencceoucsacSwoves.asz;1 2% ¢33 


: e3 ° é } } NODE SPACE DATA 

: 481 1 

he § 1! The following items ore needed to maintain the node space. which is a chunk 
i 4 1 ! of memory that contains all of the nodes needed for the intermediate 

3 7 484 1 ! representation of a CLD. 

, 7% 485 1 

oe 4 $ 1 Literal 

> 04 1 node_space_size = 256 * 512; ! Size of node space is 128K. 

; 77 0488 1 own 

3 78 0489 1 node_space: pointer initial(0), ! Address of node space. 

; 79 0490 1 next_node: pointer; i Address of next available byte. 


4 
yo2-600 13-Sep-1984 47:36:38 SNScbumhaSfensctbo’sacSwoves.esz:1 2% cad 


'ee 
Description: This routine is called to create and initialize a new node. 


wn 
= 


4, : 
5 ! Parameters: type tonaf: 8 a the type of the new node. 

‘ text_length Ope onal | value, the Length of the text 
; string for the new node. 

4 : text Spt tenet. by reference, the text string for 
e new node. 
; Returns: Address of new node. 
i Notes: Upon first call, this routine allocates the node space. 
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GLOBAL ROUTINE eeBcroate_node(s ype: Loree 
ong, 


text? pointer) 
= BEGIN 


builtin 
nul lparameter; 


local 
status: long, 
real_text _ length: long, 
new_node: ref node; 


! If the node space has not been allocated, then do it now. 


if .node_space eqla 0 then 
Status = Lib$get_ y lavetinaie _Space_size) ,node_space); 
check(.status, .Status); 
next_node = .node_space; 


MPoNENEfofonofonofun 
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ee ee a at a et od ot = os = = 


d3 
5 ! Set up a variable to tell us the actual length of the text string that is 
: ! to be placed in the node. 
3 real_text_length = (if nullparameter(2) then 0 else .text_length); 
5 ! Allocate the node as an integral number of longwords. Make sure it fits 
H ! within the allocated node space. 
5 new_node = .next_node; 
5 next_node = .next grees, + round -up(fieldexpand (node. t_text,0) + .real_text_length, 4); 
538 f .fhext_node gers -node_space + node_space_size thén™ 
+44 Signal (msg(cdu$_ Tatnodespace)); 
3) ! Initialize the node. 
328 new_node([node_w_ =the 
544 new_node[node-w_| 2 © ebekat. Line_number; 
545 new_node(node"\"s ister] = new -ndde(ndde_l thildy = new_node[node_|_code] = 0; 
278 new_node[node_b_text_length -real coat “Length 
54 ch$move(.real—téxt_léngt text, new “nodeCnode_t *text)); 


visio bea AEE 


return .new_node; 


4 
; ! Return the address of the new node. 
3 END; 
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MASTER: CCDU. SRC JNODES.B32; 1 


NODES 
\V04=000\ 

SOWNS ,NOEXE ,2 

0 

4 

LIBSGET_VM, CDUSGL_LINE_NUMBER 
CDUS_INTNODE SPACE 
SCODES,NOWRT,2 
CDUSCREATE_NODE, Save R2,R3,R4,R5,R6,R7,RB 
LIBSSIGNAL; R8 

NEXT NODE. R7 

NODE _SPACE 

NODE_SPACE 

#131072, 4(SP) 

4(SP) 

#2, LIBSGET_VM 

STATUS, 1 

STATUS 

#1, LIBSSIGNAL 

NODE_SPACE, NEXT_NODE 

(AP) #2 

BAP) 

REAL_TEXT_LENGTH 

TEXT_LENGTH, REAL_TEXT_LENGTH 
mrt NODE, NEW_NODE 

20(R2), rb 

@NEXT_NODECROJ, NEXT_NODE 
#131072 NODE SPACE, RO 
NEYT_NODE, R 


#CDUS_INTNODE SPACE 
1, LIBSSIGNAL 


age 
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WROEE on 1Soseontags gage 


MedMGhAS ERs cebO’ secSwopes.032;1 2% «aS 

11 AG be et 3 28 0084 moves REACT TEXTZLENGT 7 H arent “4 the. NODE) : $348 
& 50 0008A MOVE” —-NEW-RODE,"R 0351. 

04 00080 RET + 0553 


; Routine Size: 142 bytes, Rov ine Base: S$CODE$ + 0000 


4 
shetee a 47:86:38 NE coUmGhASTERsCeDU sac Swoves.e32;1 2% «55 


; 145 4 1 !44 

3 148 5 1! Description: This routine is called after a CLD file has been completel 

: 12 § : } processed. It frees up ail the node space for the next fi e. 

; 149 8 Parameters: None. 

; i 1 566 Returns: Nothing. 

ce g 7 096¢ 1 | Notes: 

: 188 0864 

; 156 0565} GLOBAL ROUTINE cduSfree_all nodes : novalue 

oe 566 = BEGIN 

. 

; Hy $295 ! Simply reinitialize the next node pointer. 

; 168 O31 next_node = .node_space; | 
: 164 §878 return; 
3; «6165 0574 

3; «166 0575 «(1 


END; 


0000 00000 -ENTRY CDUSFREE_ALL porte. Save nothing ; 0565. 
0000" CF 0000" CF 00 00002 MOVL NODE_SPATE, NEXT_NODE ; 0571 
04 00009 RET 3; 0575. 


| 
; Routine Size: 10 bytes, Routine Base: $CODE$ + OO8E 
| 
| 
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7 '++ 
$ 7 ! Description: This routine is called to search all of the children of a 
0 7 ! iven parent node. It looks for a node of the given type. 
1 7 ; n addition, if desired, it will also compare a text string 
: $6 to the text string in the children of matching type. 
4 : i Parameters: parent By reference, the parent node. 
5 58 ' type By yalue, the type of node that is desired. 
$ 28 } text_length Options}. oy ve ue, the length of the text 
: string to match, 
8 58 ! text Optional, by reference, the text string to 
; bee match. 
1 g28 | Returns: Address of first matching child, or zero if none. 
¢ 59 i Notes: 
59 ! 
59 
He 
059 
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! We use one of two scanning loops, depending upon whether a text string 
! match is desired. 
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if nullparameter(3) then 


ooo 


' No text ete ing match is descired, so just look for a child of the 
! correct node ty 


Sar 


scan_children(parent,child, 
-child(node_w_t re? eqlu .type then 
return .child; 
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: A text string match is desired, so we must look for a child of 
! the correct node type which contains the specified string. 


PAA AAAA AAO 


scan_children(parent child. 
if ch$eql(.childLnode btext _Longrh} child(node_t text), 
-text_length, text,%x'00") and 
schildlnodev typed eqlu .type then 
return .child; 


 wvvvUD 
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); 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
= BEGIN 
| 
local 
0 child: ref node; 
60 
60 builtin 
0604 nul lparameter; 
! We did not find a match, so return zero, 
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NODE 18-52 $1984 23:44:46 VAX-11 Bliss-32 V4.0 
‘Yoo=000 Ve-Sep=1984 T1:S8ic6 — DLeKSVMEMASTERSCCDU. 

; 0 0637 1 !+¢ 

3 1 6 5 1! Description: This routine is called to search all of the children of a given 

; ¢ 6 1! parent node, oe for children of certain types. The caller 

; 640 1! is only interested in knowing whether at least one of the 

; ¢ bees : specified node types exist. 

; 6 bees 1! Parameters: parent By reference, the parent node. 

; 4 bece : types... _ By value, one or more node types to search for. 

; 239 bees : } Returns: By value, a boolean which is true if one of the types is found. 

: 241 0648 1 ! Notes: 

; eg 0649 1 !-- 

> 24 0650 1 

3 244 0651 1 GLOBAL ROUTINE cduScheck_for_children(parent: ref node, 

> 245 0652 1 types: vector(,long]) 

; 246 0653 § = BEGIN 

> 247 0654 

> 248 0655 § local 

; 249 0656 tyers.stees long, 

; 250 0657 2 child: ref node, 

s. 21 0658 type_key: long; 

; $26 0659 

; 2 0660 builtin 

> 254 0661 2 actualcount; 

3 30 0662 2 

3; 20 0663 2 , 

3 Sen nove § ! Calculate the size of the types List for use in the loop below. 

; 259 0666 2 types_size = (actualcount() - 1) * 4; 

; 260 0667 2 

: 261 0668 2 ! Scan all the children of the parent node. 

s 962 0669 2 : 

: 263 P 0670 2 scan_children(parent,child, 

> 264 P 0671 2 

: 265 P 0672 2 ' Lookup the node type in the type List passed to us. If found, 

; 266 P 0673 2 ! return true. 

; 267 P 0674 2 

; 268 P 0675 2 type_key = .child[node_w_typel; 

: 269 P 0676 2 if ch$find_sub(.types_Size,types, 4,type_key) nega 0 then 

: 270 P 0677 2 return true; 

; 271 0678 2); 

; 272 0679 : ; oe 

: $7 pono ! We didn't find a child of the specified types, so return false. 

ee ik, 0682 2 return false; 

; 276 0683 2 

s al 0684 1 END; 


003c 00000 .ENTR 
SE 04 C2 6000¢ SUBL 2 
5 6¢ 9A 0000 MOVZBL (AP), RO 
6 D7 00008 DECL RO 


she’ 
SRC JNODES .832;1 


Y CDUSCHECK_FOR_CHILDREN, Save R2,R3,R4,R5 
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5 
| MODE hes $ep-1984 23:44:46 VAX-11 Bliss-32 V 
Yon 800 14-Sep Laat Fi $i #56 DISKSVMSMASTER: chbu OS AC INODES B32: 31 
55 02 7 OOA ASHL #2 RO. iyves SIZE 
| 30 04 ac D O05 MOVL = PAREN 
| 4 8 Ad 00 0001 MOVL BCROD, “CHILD 
: 1D B18 1$: BEQL 
6E 4 001 MOVZWL an TYPE_K 
08 aC 55 6E 4 0018 mATCHC # YPE_KEY, “TYPES. SIZE, TYPES 
| 
5 04 OD +4 3 MOVL a4, R 
| 5 04 Ce 00086 2s SUBL2 #4, R 
04 + BEQL 3$ 
| 50 01 D0 00028 MOVL #1, RO 
04 0002E RET 
54 04 AS 00 O002F 3$: MOVL 4(CHILD), CHILD 
f} 11 00033 BRB 1$ 
0 D4 00035 4$: CLAL RO 
04 00037 RET 
; Routine Size: 56 bytes, Routine Base: SCODES + O0E6 
278 0685 1 END 
279 0686 0 ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
:  SOWNS 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 286 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: woes cone Symbol wooeeeoe Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:NODES/OBJ=O0BJ$:NODES MSRC$:NODES/UPDATE=(ENHS$:NODES) 
; Size: 286 code + 8 data bytes 
; Run Time: 00:10.2 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Be Be 


0682 
0684 


; Elapsed Time: 00:34.5 
3; Lines/CPU Min: 

3; Lexemes/CPU-Min: 18035 

; penory Used: 100 pages 
; Compilation Complete 
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